FillPoly procedure

  DECLARATION:  FillPoly(NumPoints : Word; var PolyPoints);

      PURPOSE:  Draws a filled polygon

         UNIT:  Graph

      REMARKS:  PolyPoints is an untyped parameter that contains the
                coordinates of each intersection in the polygon.  NumPoints
                specifies the number of coordinates in PolyPoints.
                A coordinate consists of two words, an X and a Y value.

                The polygon is filled with the current fill style and color.
                The outline is drawn in the current line style and color as
                set by SetLinestyle.

                If an error occurs while filling the polygon, GraphResult
                returns a value of -6 (grNoScanMem).

 RESTRICTIONS:  Must first be in graphics mode.

      EXAMPLE:   Uses
                   Graph;

                Const
                   Triangle: Array(1..3) of PointType =  ((x:  50; y: 100),
                                                          (x: 100; y: 100),
                                                          (x: 150; y: 150));
                Var
                   Gd, Gm : Integer;

                Begin
                   Gd := Detect;
                   InitGraph(Gd, Gm, '');
                   If (GraphResult <> grOK) Then
                      Halt(1);
                   FillPoly(SizeOf(Triangle) div SizeOf(PointType), Pentagon);
                   ReadLn;
                   CloseGraph;
                End.